home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / StdFile.p < prev    next >
Encoding:
Text File  |  1990-08-01  |  4.2 KB  |  109 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: StdFile.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-90
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT STDFILE;
  11.  
  12. INTERFACE
  13.  
  14. USES TYPES;
  15.  
  16. CONST
  17. { Error Codes }
  18. badPromptDesc = $1701;
  19. badOrigNameDesc = $1702;
  20. badReplyNameDesc = $1704;
  21. badReplyPathDesc = $1705;
  22. badCall = $1706;
  23.  
  24. { filterProc Result Codes }
  25. noDisplay = $0000;  { file not to be displayed }
  26. noSelect = $0001;  { file displayed, but not selectable }
  27. displaySelect = $0002;  { file displayed and selectable }
  28.  
  29. { Other Constants }
  30. sfWildAuxType = $8000;
  31. sfMatchFileType = $8000;
  32. sfWildFileType = $4000;
  33. sfMatchAuxType = $4000;
  34. sfDisplayGrey = $2000;
  35. {$IFC UNDEFINED sfFileTypeEntriesLength }  { SFTypeList - default number of FileTypeEntries }
  36. sfFileTypeEntriesLength = $0005;
  37. {$SETC sfFileTypeEntriesLength := 0}
  38. {$ENDC}
  39.  
  40. TYPE
  41. SFReplyRecHndl = ^SFReplyRecPtr;
  42. SFReplyRecPtr = ^SFReplyRec;
  43. SFReplyRec = RECORD
  44.     good : Boolean;
  45.     fileType : Integer;
  46.     auxFileType : Integer;
  47.     filename : String[15];
  48.     fullPathname : String[128];
  49. END;
  50.  
  51. SFReplyRec2Hndl = ^SFReplyRec2Ptr;
  52. SFReplyRec2Ptr = ^SFReplyRec2;
  53. SFReplyRec2 = RECORD
  54.     good : Boolean;
  55.     fileType : Integer;
  56.     auxType : Longint;
  57.     nameRefDesc : RefDescriptor;
  58.     nameRef : Ref;
  59.     pathRefDesc : RefDescriptor;
  60.     pathRef : Ref;
  61. END;
  62.  
  63. MultiReplyPtr = ^MultiReplyRecord;
  64. MultiReplyRecord = RECORD
  65.     good : Integer;
  66.     namesHandle : Handle;
  67. END;
  68.  
  69. SFTypeListHndl = ^SFTypeListPtr;
  70. SFTypeListPtr = ^SFTypeList;
  71. SFTypeList = PACKED RECORD
  72.     numEntries : Byte;
  73.     fileTypeEntries : PACKED ARRAY[1..sfFileTypeEntriesLength] OF Byte;
  74. END;
  75.  
  76. TypeSelector2 = RECORD
  77.     flags : Integer;
  78.     fileType : Integer;
  79.     auxType : Longint;
  80. END;
  81.  
  82. SFTypeList2Ptr = ^SFTypeList2;
  83. SFTypeList2 = RECORD
  84.     numEntries : Integer;
  85.     fileTypeEntries : ARRAY[1..sfFileTypeEntriesLength] OF TypeSelector2;
  86. END;
  87.  
  88. PROCEDURE SFAllCaps ( allCapsFlag:Boolean)  ;
  89. PROCEDURE SFBootInit   ;
  90. PROCEDURE SFGetFile ( whereX:Integer; whereY:Integer; prompt:Str255; filterProcPtr:WordProcPtr; typeListPtr:SFTypeListPtr;VAR replyPtr:SFReplyRec)  ;
  91. PROCEDURE SFGetFile2 ( whereX:Integer; whereY:Integer; promptDesc:RefDescriptor; promptRef:Ref; filterProcPtr:WordProcPtr; typeListPtr:SFTypeList2Ptr;VAR replyPtr:SFReplyRec2)  ;
  92. PROCEDURE SFMultiGet2 ( whereX:Integer; whereY:Integer; promptDesc:RefDescriptor; promptRef:Ref; filterProcPtr:WordProcPtr; typeListPtr:SFTypeList2Ptr;VAR replyPtr:MultiReplyPtr)  ;
  93. PROCEDURE SFPGetFile ( whereX:Integer; whereY:Integer; prompt:Str255; filterProcPtr:WordProcPtr; typeListPtr:SFTypeListPtr; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:SFReplyRec)  ;
  94. PROCEDURE SFPGetFile2 ( whereX:Integer; whereY:Integer; itemDrawPtr:ProcPtr; promptDesc:RefDescriptor; promptRef:Ref; filterProcPtr:WordProcPtr; typeListPtr:SFTypeList2Ptr; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:SFReplyRec2)  ;
  95. PROCEDURE SFPMultiGet2 ( whereX:Integer; whereY:Integer; itemDrawPtr:ProcPtr; promptDesc:RefDescriptor; promptRef:Ref; filterProcPtr:WordProcPtr; typeListPtr:SFTypeList2Ptr; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:MultiReplyPtr)  ;
  96. PROCEDURE SFPPutFile ( whereX:Integer; whereY:Integer; prompt:Str255; origName:Str255; maxLen:Integer; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:SFReplyRec)  ;
  97. PROCEDURE SFPPutFile2 ( whereX:Integer; whereY:Integer; itemDrawPtr:ProcPtr; promptDesc:RefDescriptor; promptRef:Ref; origNameDesc:RefDescriptor; origNameRef:Ref; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:SFReplyRec2)  ;
  98. PROCEDURE SFPutFile ( whereX:Integer; whereY:Integer; prompt:Str255; origName:Str255; maxLen:Integer;VAR replyPtr:SFReplyRec)  ;
  99. PROCEDURE SFPutFile2 ( whereX:Integer; whereY:Integer; promptDesc:RefDescriptor; promptRef:Ref; origNameDesc:RefDescriptor; origNameRef:Ref;VAR replyPtr:SFReplyRec2)  ;
  100. PROCEDURE SFReScan ( filterProcPtr:ProcPtr; typeListPtr:SFTypeList2Ptr)  ;
  101. PROCEDURE SFReset   ;
  102. FUNCTION SFShowInvisible ( invisibleState:Boolean) : Boolean ;
  103. PROCEDURE SFShutDown   ;
  104. PROCEDURE SFStartUp ( userID:Integer; dPageAddr:Integer)  ;
  105. FUNCTION SFStatus  : Boolean ;
  106. FUNCTION SFVersion  : Integer ;
  107. IMPLEMENTATION
  108. END.
  109.